The Arsenal Files 6/The Arsenal Files 6 (Arsenal Computer).ISO/wildcat/wline1_5.zip/LOGON2.WCX

Wildcat! WCX | 1996-01-21 | 11KB | 701 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  11115 bytes  01/28/123  08:37:22pm
'! Code Segment Size  :7380 bytes
'! Data Segment Size  :5292 bytes
'! String Segment Size:3735 bytes
'! Compiled with WCC version 4.12

      Declare Function Func6780(s65534 As String, s65532 As String, s65530 As String) As String
      Declare Function Func7080(s65534 As String, s65532 As String, s65530 As String) As String

      Dim i4463 As Integer
      Dim i4465 As Integer
      Dim i4467 As Integer
      Dim s4469 As String
      Dim s4473 As String
      Dim s4477 As String
      Dim i4481 As Integer
      Dim s4483 As String
      Dim s4487 As String
      Dim s4491 As String*1
      Dim s4493 As String*255
      Dim w4748 As Word
      Dim i4750 As Integer
      Dim i4759 As Integer
      Dim s4769 As String
      Dim s4773 As String
      Dim s4777 As String
      Dim s4781 As String
      Dim s4785 As String
      Dim i4789 As Integer
      Dim i4791 As Integer
      Dim s4793 As String
      Dim s4797 As String
      Dim s4801 As String
      Dim s4805 As String
      Dim s4809 As String
      Dim s4813 As String
      Dim s4821 As String
      Dim s4825 As String
      Dim s4837 As String*25
      Dim s4862 As String
      Dim s4866 As String
      Dim i4872 As Integer
      Dim i4874 As Integer
      Dim i4876 As Integer
      Dim i4878 As Integer
      Dim nir4880 As NodeInfoRecord
      Dim i5066 As Integer
      Dim s5068 As String
      Dim s5072 As String
      Dim i5076 As Integer
      Dim i5078 As Integer
      Dim s5080 As String
      Dim i5084 As Integer
      Dim i5086 As Integer
      Dim i5088 As Integer
      Dim i5090 As Integer
      Dim i5092 As Integer
      Dim s5098 As String
      Dim i5102 As Integer
      Dim i5104 As Integer
      Dim w5106 As Word
      Dim i5108 As Integer
      Dim s5110 As String
      Dim i5114 As Integer
      Dim s5116 As String
      Dim s5120 As String
      Dim i5128 As Integer
      Dim d5130 As Date
      Dim s5132 As String
      Dim s5136 As String
      Dim s5140 As String
      Dim i5144 As Integer
      Dim i5146 As Integer
      Dim s5148 As String
      Dim i5152 As Integer
      Dim s5154 As String
      Dim s5158 As String
      Dim i5162 As Integer
      Dim s5164 As String
      Dim s5170 As String
      Dim s5174 As String
      Dim s5178 As String
      Dim i5182 As Integer
      Dim s5184 As String
      Dim i5188 As Integer
      Dim i5190 As Integer
      Dim s5192 As String
      Dim s5200 As String
      Dim i5204 As Integer
      Dim s5206 As String
      Dim i5210 As Integer
      Dim i5212 As Integer
      Dim s5214 As String
      Dim s5218 As String
      Dim s5222 As String
      Dim i5228 As Integer
      Dim i5230 As Integer
      Dim s5232 As String
      Dim s5236 As String
      Dim s5240 As String
      Dim s5244 As String
      Dim i5248 As Integer
      Dim s5250 As String
      Dim s5254 As String
      Dim s5258 As String
      Dim s5262 As String*30

      Dim l65527_ As Long
      Dim i65531_ As Integer
      Dim s65533_ As String*1
      Dim i65534_ As Integer

      i5066 = Node
      GetNodeInfo nir4880, i5066
      s4837 = nir4880.CallersName
      s5250 = LTrim(RTrim(UCase(s4837)))
      s5240 = User.SecLevel
      s5240 = LTrim(RTrim(UCase(s5240)))
      s5236 = "Space." + LTrim(RTrim(Str(Node)))
      s5232 = "Color." + LTrim(RTrim(Str(Node)))
      If Exists(s5236) Then
        Kill s5236
      End If
  191 If Exists(s5232) Then
        Kill s5232
      End If
  211 s5140 = "v1.5"
      i5090 = 32
      CarrierCheck(-1)
      If RIPEnabled Then
        Rip Reset_Windows
      End If
  246 s5068 = MakeWild.BBSName
      s5072 = MakeWild.RegString
      s5098 = MakeWild.RegString
      i5104 = Len(s5098)
      w5106 = i5104 + i5102
      s5136 = Chr(57) + Chr(54) + Chr(47) + Chr(48) + Chr(54) + Chr(47) + Chr(49) + Chr(53)
      Open "Wildline.key" For Random As 1 Len = 30 '! This value should probably be replaced with a "SizeOf" expression
      Get 1, -1, s5262 '! 30 bytes
      Close 1
      s5120 = s5262
      i5102 = Len(s5120)
  463 For i5128 = 1 To Len(s5120) Step 1
        i5108 = Asc(Left(s5120, 1))
        i5102 = Len(s5120) - 1
        s5110 = Left(s5120, 1)
        s5120 = Right(s5120, i5102)
        i5114 = i5108 - i5128
        s5116 = Chr(i5114)
        s5120 = s5120 + s5116
      Next
  641 If s5068 = s5120 Then
        s5068 = s5068
      Else
  671   If s5068 <> s5120 Then
          s5068 = Chr(78) + Chr(111) + Chr(116) + Chr(32) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100)
          CurrentDate d5130
          s5132 = FormatDate(d5130, "yy/mm/dd")
          If s5132 > s5136 Then
            GoTo 6543
          End If
        End If
      End If
  830 s4769 = "@"
      s4777 = Chr(126)
      s4773 = "_"
      s4781 = Chr(32)
      Open "wildline.cfg" For Input As 1
  886 Do While Not EOF(1)
        Input #1, s5148
        s5148 = LTrim(s5148)
        s5148 = RTrim(s5148)
        i5152 = i5152 + 1
        If i5152 = 1 Then
          s5154 = UCase(s5148)
        Else
  974     If i5152 = 2 Then
            s5158 = UCase(s5148)
          Else
 1006       If i5152 = 3 Then
              i5162 = Val(s5148)
            Else
 1039         If i5152 = 4 Then
                s5164 = UCase(s5148)
              Else
 1071           If i5152 = 5 Then
                  s5258 = s5148
                End If
              End If
            End If
          End If
        End If
 1094 Loop
 1100 Close 1
      s5080 = "[@0A@" + s5068 + " @0E@W@0A@i@0B@l@0D@d@09@l@0C@i@0F@n@05@e@03@s @0E@" + s5140 + "@0B@]"
      i5076 = Len(s5068)
      i5084 = i5076 + 17
      i5078 = 79 - i5084
      i5086 = i5078 / 2
      i5088 = 79 - i5086 + i5084
      i5248 = 3
      Open "Nowrite.sec" For Input As 1
 1247 Do While Not EOF(1)
        Input #1, s5244
        s5244 = LTrim(RTrim(UCase(s5244)))
        If s5244 = s5240 Then
          i5248 = 2
          s5254 = "Security Level"
        End If
 1316   If s5244 = s5250 Then
          i5248 = 2
          s5254 = "User Name"
        End If
 1348 Loop
 1354 Close 1
      Open "noview.sec" For Input As 1
 1379 Do While Not EOF(1)
        Input #1, s5244
        s5244 = LTrim(RTrim(UCase(s5244)))
        If s5244 = s5240 Then
          i5248 = 1
          s5254 = "Security Level"
        End If
 1448   If s5244 = s5250 Then
          i5248 = 1
          s5254 = "User Name"
        End If
 1480 Loop
 1486 Close 1
      i65534_ = i5248
      If i65534_ = 1 Then
        GoTo 6543
      Else
 1528   If i65534_ = 2 Then
          Cls
          Print "@05@───────────────────────────────────────────────────────────────────────────────"
          Print "@0D@───────────────────────────────────────────────────────────────────────────────"
          Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
          Print "@0F@───────────────────────────────────────────────────────────────────────────────"
          Print "@08@───────────────────────────────────────────────────────────────────────────────"
          Open "wildline.bbs" For Input As 1
 1641     Do While Not EOF(1)
            Input #1, s4793
            s4793 = LTrim(s4793)
            s4793 = RTrim(s4793)
            i4759 = i4759 + 1
            i5146 = 0
            If s5164 = "Y" Then
              i5144 = AtLen(s4793)
              i5146 = 79 - i5144 / 2
            End If
 1755       Print Space(i5146); s4793; "@07@"
          Loop
 1786     Close 1
          i4759 = 0
          Print "@08@────────────────────────────────────────────────────────────@0D@By Michael J. Sell@08@─"
          Pause
        Else
 1815     If i65534_ = 3 Then
            GoTo 1843
            GoTo 1842
          End If
        End If
      End If
 1842 End
 1843 Cls
      Print "@05@───────────────────────────────────────────────────────────────────────────────"
      Print "@0D@───────────────────────────────────────────────────────────────────────────────"
      Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
      Print "@0F@───────────────────────────────────────────────────────────────────────────────"
      Print "@08@───────────────────────────────────────────────────────────────────────────────"
      Open "wildline.bbs" For Input As 1
 1941 Do While Not EOF(1)
        Input #1, s4793
        s4793 = LTrim(s4793)
        s4793 = RTrim(s4793)
        i4759 = i4759 + 1
        i5146 = 0
        If s5164 = "Y" Then
          i5144 = AtLen(s4793)
          i5146 = 79 - i5144 / 2
        End If
 2055   Print Space(i5146); s4793; "@07@"
      Loop
 2086 Close 1
      i4759 = 0
      Print "@08@────────────────────────────────────────────────────────────@0D@By Michael J. Sell@08@─"
      Print s5258
      If InputYesNo("@0A@Would you like to leave a oneliner @0F@y/n ?@0D@ ", 1213417543) Then
        Cls
        Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
        Print "@0F@───────────────────────────────────────────────────────────────────────────────"
        Print "                      @01@1 @02@2 @03@3 @04@4 @05@5 @06@6 @07@7 @08@8 @09@9 @0A@10 @0B@11 @0C@12 @0D@13 @0E@14 @0F@15 "
        Print "@0F@───────────────────────────────────────────────────────────────────────────────"
        Print "Press @0B@[@0C@Esc@0B@] to add color @0E@[@0C@Enter@0E@] @0E@to continue @09@[@0F@?@09@] for help @0A@[@0F@A@0A@]bort"
        Print "@0F@───────────────────────────────────────────────────────────────────────────────"
        Do
 2220     s4491 = InKey(1213417543)
          w4748 = Asc(s4491)
        Loop While s4491 = ""
        Do
 2267     s65533_ = s4491
          If s65533_ = Chr(27) Then
            i4750 = 7
            Cls
            Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
            Print "@0F@───────────────────────────────────────────────────────────────────────────────"
            Print "                      @01@1 @02@2 @03@3 @04@4 @05@5 @06@6 @07@7 @08@8 @09@9 @0A@10 @0B@11 @0C@12 @0D@13 @0E@14 @0F@15 "
            Print "@0F@───────────────────────────────────────────────────────────────────────────────"
            i4750 = InputNumber("@07@Color to Add @0F@1-15 @0D@", 1, 15)
            If i4750 < 10 Then
              s4483 = "@0" + Str(i4750) + "@"
            Else
 2438         If i4750 = 10 Then
                s4483 = "@0A@"
              Else
 2468           If i4750 = 11 Then
                  s4483 = "@0B@"
                Else
 2498             If i4750 = 12 Then
                    s4483 = "@0C@"
                  Else
 2528               If i4750 = 13 Then
                      s4483 = "@0D@"
                    Else
 2558                 If i4750 = 14 Then
                        s4483 = "@0E@"
                      Else
 2588                   If i4750 = 15 Then
                          s4483 = "@0F@"
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
 2612       Cls
            Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
            Print "@0F@───────────────────────────────────────────────────────────────────────────────"
            Print "                      @01@1 @02@2 @03@3 @04@4 @05@5 @06@6 @07@7 @08@8 @09@9 @0A@10 @0B@11 @0C@12 @0D@13 @0E@14 @0F@15 "
            Print "@0F@───────────────────────────────────────────────────────────────────────────────"
            Print s4493 + s4483
            Print "@0F@───────────────────────────────────────────────────────────────────────────────"; s4483
            Print "Line to enter ";
            Input s4487
            s4487 = Func6780(s4487, s4769, s4777)
            i4759 = Len(s4487) + i4759
            i5092 = i5092 + 1
            If i5092 > i5090 Then
              s4483 = ""
            End If
 2806       If i4759 > 77 Then
              i4791 = i4759 - 77
              i4789 = Len(s4487)
              i4791 = i4789 - i4791
              s4487 = Left(s4487, i4791)
              s4493 = s4493 + s4483 + s4487
              s4785 = s4493
              s4785 = Func7080(s4785, s4773, s4781)
              s4493 = LTrim(s4785)
              GoTo 3768
            End If
 2952       s4493 = s4493 + s4483 + s4487
            s4785 = s4493
            s4785 = Func7080(s4785, s4773, s4781)
            s4493 = s4785
            s4493 = LTrim(s4493)
          Else
 3036       If s65533_ = Chr(13) Then
              Print "@07@line to enter ";
              Input s4487
              s4487 = Func6780(s4487, s4769, s4777)
              i4759 = Len(s4487) + i4759
              s4483 = s5158
              i5092 = i5092 + 1
              If i5092 > i5090 Then
                s4483 = ""
              End If
 3157         If i4759 > 77 Then
                i4791 = i4759 - 77
                i4789 = Len(s4487)
                i4791 = i4789 - i4791
                s4487 = Left(s4487, i4791)
                s4493 = s4493 + s4483 + s4487
                s4785 = s4493
                s4785 = Func7080(s4785, s4773, s4781)
                s4493 = LTrim(s4785)
                GoTo 3768
              End If
 3303         s4487 = s4483 + s4487
              s4493 = s4493 + s4487
              s4785 = s4493
              s4785 = Func7080(s4785, s4773, s4781)
              s4493 = s4785
              s4493 = LTrim(s4493)
            Else
 3395         If s65533_ = Chr(63) Then
                Cls
                Print Space(32) + "@0B@[@0E@W@0A@i@0B@l@0D@d@09@l@0C@i@0F@n@05@e@03@s @0E@" + s5140 + "@0B@]"
                Print Space(36) + "@74@Help File@07@"
                Print "@0F@───────────────────────────────────────────────────────────────────────────────"
                Print "  @07@To add a space between Words @0F@[ENTERED]@07@, add a _at the begining or the end of"
                Print "The word. otherwise the word will be joined."
                Print "@ codes are not allowed in the Lines you enter.If you do use the @ it will be"
                Print "substituted with the ~ ."
                Print "The Maximum colors allowed are 32. The Maximum characters are 77."
                Print ""
                Pause
              Else
 3534           If s65533_ = Chr(65) Then
                  GoTo 6543
                Else
 3565             If s65533_ = Chr(97) Then
                    GoTo 6543
                    GoTo 3596
                  End If
                End If
              End If
            End If
          End If
 3596     Cls
          Print "@0B@" + String(i5086, 196) + s5080 + String(i5088, 196)
          Print "@0F@───────────────────────────────────────────────────────────────────────────────"
          Print "                      @01@1 @02@2 @03@3 @04@4 @05@5 @06@6 @07@7 @08@8 @09@9 @0A@10 @0B@11 @0C@12 @0D@13 @0E@14 @0F@15 "
          Print "@0F@───────────────────────────────────────────────────────────────────────────────"
          Print " Press @0B@[@0C@Esc@0B@] to add color @0D@[@0F@Enter@0D@] @0D@to SAVE @09@[@0F@?@09@] For Help @0A@[@0F@A@0A@]bort"
          Print "@0F@───────────────────────────────────────────────────────────────────────────────"
          Print s4493
          Print "@0F@───────────────────────────────────────────────────────────────────────────────"
          Do
 3702       s4491 = InKey(1213417543)
          Loop While s4491 = ""
          w4748 = Asc(s4491)
        Loop While s4491 <> Chr(13)
 3768   i4759 = 0
        s4493 = LTrim(s4493)
        s4797 = s4493
        s4809 = UCase(s4797)
        s4862 = s4797
        Open "B_words.txt" For Input As 1
 3838   Do While Not EOF(1)
          Input #1, s4805
          s4805 = UCase(s4805)
          Do
 3869       i4876 = InStr(i4876 + 1, s4809, s4805)
            If i4876 > 0 Then
              i4878 = Len(s4805)
              i4872 = Len(s4809) - i4876 - 1 + i4878
              s4477 = String(i4878, Chr(35))
              s4821 = Left(s4797, i4876 - 1)
              s4825 = Right(s4797, i4872)
              s4797 = s4821 + s4477 + s4825
            End If
 4023     Loop Until i4876 = 0
        Loop
 4043   Close 1
        i4467 = 0
        i5182 = 4
        i5228 = 0
        Do
 4067     i4467 = InStr(i4467 + 1, s4797, Chr(64))
          If i4467 > 0 Then
            s5170 = Left(s4797, i4467 - 1)
            i5190 = Len(s4797) - i4467
            s5178 = Right(s4797, i5190 + 1)
            s5174 = Left(s5178, i5182)
            i5188 = Len(s5178) - i5182
            s5184 = Right(s4797, i5188)
            s4797 = s5170 + s5184
            s5200 = s5174 + " " + Str(i4467 - 1)
            i5228 = 1
            Open s5232 For Append As 1
            Print #1, s5200
            Close 1
          End If
 4300   Loop Until i4467 = 0
        s4809 = UCase(s4797)
        Open "B_words.txt" For Input As 1
 4345   Do While Not EOF(1)
          Input #1, s4805
          s4805 = UCase(s4805)
          Do
 4376       i4876 = InStr(i4876 + 1, s4809, s4805)
            If i4876 > 0 Then
              i4878 = Len(s4805)
              i4872 = Len(s4809) - i4876 - 1 + i4878
              s4477 = String(i4878, Chr(35))
              s4821 = Left(s4797, i4876 - 1)
              s4825 = Right(s4797, i4872)
              s4797 = s4821 + s4477 + s4825
            End If
 4530     Loop Until i4876 = 0
        Loop
 4550   Close 1
        i4467 = 0
        i5230 = 0
        i5182 = 1
        Do
 4574     i4467 = InStr(i4467 + 1, s4797, Chr(32))
          If i4467 > 0 Then
            s5170 = Left(s4797, i4467 - 1)
            i5190 = Len(s4797) - i4467
            s5178 = Right(s4797, i5190 + 1)
            s5174 = Left(s5178, i5182)
            i5188 = Len(s5178) - i5182
            s5184 = Right(s4797, i5188)
            s4797 = s5170 + s5184
            s5200 = s5174 + " " + Str(i4467 - 1)
            i5230 = 1
            Open s5236 For Append As 1
            Print #1, s5200
            Close 1
          End If
 4807   Loop Until i4467 = 0
        s4809 = UCase(s4797)
        Open "B_words.txt" For Input As 1
 4852   Do While Not EOF(1)
          Input #1, s4805
          s4805 = UCase(s4805)
          Do
 4883       i4876 = InStr(i4876 + 1, s4809, s4805)
            If i4876 > 0 Then
              i4878 = Len(s4805)
              i4872 = Len(s4809) - i4876 - 1 + i4878
              s4477 = String(i4878, Chr(35))
              s4821 = Left(s4797, i4876 - 1)
              s4825 = Right(s4797, i4872)
              s4797 = s4821 + s4477 + s4825
            End If
 5037     Loop Until i4876 = 0
        Loop
 5057   Close 1
        If i5230 = 1 Then
          Open s5236 For Input As 1
 5096     Do While Not EOF(1)
            Input #1, s5200
            s5200 = RTrim(s5200)
            i5210 = i5210 + 1
            i5204 = Len(s5200) - 1
            s5214 = Left(s5200, 1)
            s5206 = Right(s5200, i5204)
            i5212 = Val(s5206)
            If i5210 = 1 Then
              s5218 = Left(s4797, i5212)
              i5204 = Len(s4797) - i5212
              s5222 = Right(s4797, i5204)
              s5192 = s5218 + s5214 + s5222
            Else
 5290         i5212 = i5212 + (i5210 - 1) * 1
              s5218 = Left(s5192, i5212)
              i5204 = Len(s5192) - i5212
              s5222 = Right(s5192, i5204)
              s5192 = s5218 + s5214 + s5222
            End If
 5386     Loop
 5392     Close 1
        End If
 5397   If s5192 > "" Then
          s4797 = s5192
        Else
 5428     If s5192 = "" Then
            s5192 = s4797
          End If
        End If
 5453   i5210 = 0
        If i5228 = 1 Then
          Open s5232 For Input As 1
 5493     Do While Not EOF(1)
            Input #1, s5200
            s5200 = LTrim(RTrim(s5200))
            i5210 = i5210 + 1
            i5204 = Len(s5200) - 5
            s5214 = Left(s5200, 4)
            s5206 = Right(s5200, i5204)
            i5212 = Val(s5206)
            If i5210 = 1 Then
              s5218 = Left(s4797, i5212)
              i5204 = Len(s4797) - i5212
              s5222 = Right(s4797, i5204)
              s5192 = s5218 + s5214 + s5222
            Else
 5690         i5212 = i5212 + (i5210 - 1) * 4
              s5218 = Left(s5192, i5212)
              i5204 = Len(s5192) - i5212
              s5222 = Right(s5192, i5204)
              s5192 = s5218 + s5214 + s5222
            End If
 5786     Loop
 5792     Close 1
        End If
 5797   If s5192 > "" Then
          s4797 = s5192
        Else
 5828     If s5192 = "" Then
            s5192 = s4797
          End If
        End If
 5853   Kill s5236
        Kill s5232
        s4801 = s5154 + Chr(34) + s4797 + s5154 + Chr(34)
        s4801 = LTrim(s4801)
        s4801 = RTrim(s4801)
        s4866 = s5154 + Chr(34) + s4862 + s5154 + Chr(34)
        s4866 = LTrim(s4866)
        s4866 = RTrim(s4866)
        Open "wildline.bbs" For Append As 1
        Print #1, s4801
        Close 1
        i5066 = Node
        GetNodeInfo nir4880, i5066
        s4837 = nir4880.CallersName
        Open "wildline.log" For Append As 2
        s4793 = s4866 + ";" + s4837 + "; NODE: " + Str(Node)
        Print #2, s4793
        Close 2
      End If
 6120 i4759 = 0
      Open "wildline.bbs" For Input As 1
 6146 Do While Not EOF(1)
        Input #1, s4793
        s4793 = LTrim(s4793)
        s4793 = RTrim(s4793)
        i4759 = i4759 + 1
        If i4759 > i5162 Then
          i4874 = i4759 - i5162
        End If
 6237 Loop
 6243 Close 1
      i4759 = 0
      Open "wildline.bbs" For Input As 1
 6274 Do While Not EOF(1)
        Input #1, s4793
        s4793 = LTrim(s4793)
        s4793 = RTrim(s4793)
        i4759 = i4759 + 1
        If i4759 <= i4874 Then
          s4813 = s4793
        End If
 6356   If i4759 > i4874 Then
          Open "1liner.bbs" For Append As 2
          Print #2, s4793
          Close 2
        End If
 6408 Loop
 6414 Close 1
      Kill "wildline.bbs"
      Open "1liner.bbs" For Input As 1
 6447 Do While Not EOF(1)
        Input #1, s4793
        s4793 = LTrim(s4793)
        s4793 = RTrim(s4793)
        Open "wildline.bbs" For Append As 2
        Print #2, s4793
        Close 2
      Loop
 6529 Close 1
      Kill "1liner.bbs"
      End
 6543 End

'! Called 2 times
      Function Func6780(s65534 As String, s65532 As String, s65530 As String) As String
        Dim l65520 As Long
        Dim i65524 As Integer

 6817   For i4467 = 1 To Len(s65534) Step 1
          i4465 = InStr(i4465 + 1, s65534, s65532)
          If i4465 > 0 Then
            i4481 = Len(s65532)
            i4463 = Len(s65534) - i4465 - 1 + i4481
            s4477 = String(i4481, s65530)
            s4469 = Left(s65534, i4465 - 1)
            s4473 = Right(s65534, i4463)
            s65534 = s4469 + s4477 + s4473
          End If
 7036   Next
 7059   Func6780 = s65534
      End Function

'! Called 4 times
      Function Func7080(s65534 As String, s65532 As String, s65530 As String) As String
        Dim l65520 As Long
        Dim i65524 As Integer

 7117   For i4467 = 1 To Len(s65534) Step 1
          i4465 = InStr(i4465 + 1, s65534, s65532)
          If i4465 > 0 Then
            i4481 = Len(s65532)
            i4463 = Len(s65534) - i4465 - 1 + i4481
            s4477 = String(i4481, s65530)
            s4469 = Left(s65534, i4465 - 1)
            s4473 = Right(s65534, i4463)
            s65534 = s4469 + s4477 + s4473
          End If
 7336   Next
 7359   Func7080 = s65534
      End Function